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— )))))— /ntroduction 


Ce livre se veut avant tout un ouvrage d’approfondissement du BASIC 
Amstrad par l'utilisation et la compréhension d’un programme complexe qui 
va vous permettre de créer vos propres graphiques. 


Le programme est écrit pour les ordinateurs Amstrad mais il s'adapte faci- 
lement aux autres micro-ordinateurs du marché. 

Les explications, données ligne par ligne, vous aideront à transférer facile- 
ment les listings sur une autre machine. 


Cependant, quelques limites sont à observer. Il faut bien sûr que votre ordi- 
nateur ait un jeu de caractères redéfinissable. Généralement, des instruc- 
tions spécifiques permettent de redéfinir la forme des caractères, mais pour 
certaines machines, c’est l'instruction POKE qui modifie directement la mé- 
moire : vous devez vous référer à votre manuel d'instructions pour savoir 
dans quel cas vous vous trouvez. La deuxième contrainte technique concerne 
la sauvegarde des fichiers. Votre ordinateur doit posséder des instructions 
de sauvegarde des données sur cassette ou sur disquette pour conserver 
tous les graphiques que vous aurez créés. 
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Pourquoi des caractères graphiques ? 


Pour animer vos programmes de jeux ou d'éducation, il est toujours plus 
parlant de “matérialiser” les personnages ou les objets par de vrais dessins. 
Imaginez vos “envahisseurs” représentés par de simples étoiles ou les pièces 
d’un échiquier désignées par leurs initiales ! 


D'autre part, les instructions graphiques qui tracent point par point des lignes, 
des rectangles ou des cercles sont généralement très lentes. Elles sont très 
pratiques quand il s’agit de “planter le décor”, mais seuls les caractères 
graphiques permettent de déplacer rapidement des objets sur l'écran. 


Qu'est-ce qu’un caractère graphique ? 


C'est tout simplement un ensemble de points qui forme un dessin. Il peut 
représenter une lettre de l'alphabet, un chiffre ou tout autre signe. 


Exemple : la lettre A. 





Mais si vous le redessinez, vous pouvez obtenir une balle pour votre jeu de 
tennis ou un robot pour vos “envahisseurs”. Un caractère graphique est donc 
un groupement de 8 fois 8 points qui donne une forme. 


Exemple : caractère inventé. 





Un peu de mathématique 


8 fois 8 points égalent 64 points. Chaque point peut être allumé ou éteint 
(deux états différents) ; il y a donc 2%“ solutions dans une matrice 8x8 
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(2°64 = 18E18). Bien sûr, toutes ces possibilités ne donnent pas forcément 
quelque chose de cohérent mais, dans ces 18 milliards de milliards de combi- 
naisons, il en reste beaucoup d’exploitables ! 


Convention 


Dans l'ensemble du livre, nous appelons “caractère” cet ensemble de 8x8, 
et “graphique” l'association de quatre caractères (donc une matrice de 16 
sur 16). Dans la plupart des cas, un caractère seul offre peu de possibilités 
du fait de sa taille très réduite sur l'écran. Mais rien ne vous empêche de 
dessiner un seul caractère dans un graphique. 
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Première 
Dartie 


1 


Mode d'emploi du générateur 





Avant d'utiliser le générateur, vous devez vous assurer que vous êtes en 
majuscule : ceci est obligatoire pour le bon déroulement du programme. 


Dès le lancement par la commande RUN, suivie de ENTER, l'ordinateur vous 
demande s'il s’agit d’une première utilisation. En effet, il est nécessaire de 
relire le fichier créé antérieurement. La machine n'ayant aucune possibilité 
de vérifier l'existence de données sur une cassette, cette question vous sera 
posée systématiquement à chaque utilisation. 


Si c'est la première utilisation, répondez par la lettre O suivie de ENTER. 
L'écran 1 s’affiche alors. Sinon, répondez par la lettre N suivie de ENTER ou 
appuyez simplement sur ENTER. Un message vous indique alors le moment 
où vous devez mettre le lecteur de cassettes ou de disquettes en lecture. 
Quand le fichier a été relu, le programme en affiche toujours le premier 
graphique. 
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Ecran 1 


Les déplacements du curseur 


Toutes les touches de déplacement vous sont indiquées à droite de l'écran. 
Elles permettent de déplacer le curseur dans tous les sens, y compris les 
quatre diagonales. Si le curseur arrive sur le bord de la grille, il revient auto- 
matiquement sur le bord opposé (s'il arrive à gauche, il réapparaît à droite, 
s'il arrive en bas, il réapparaît en haut). Cela évite d’avoir à traverser tout 
l'écran si vous désirez aller sur un bord opposé. Faites des essais pour bien 
comprendre le principe de déplacement du curseur. 


Les modes de tracé 


Si vous avez déplacé le curseur sur la grille, vous avez pu remarquer qu'il 
ne se passe rien. En effet, le programme se place toujours en mode DEPLA- 
CEMENT en début de session (ce mot est inscrit en bas de l'écran). Le 
curseur se déplace mais ne modifie pas la grille. Pour commencer à créer 
un graphique, il faut changer de mode. C'est le rôle de la touche M. Chaque 
fois que vous appuyez sur cette touche, un mode nouveau apparaît en bas 
de l'écran. 


Le mode NOIR permet de déplacer le curseur en laissant une trace noire 
derrière lui. Le mode BLANC fait exactement l'inverse en laissant une trace 
blanche qui efface éventuellement les carrés noirs déjà affichés. Le mode 
INVERSE est un mélange des deux précédents. Il place des carrés noirs sur 
les cases blanches et des carrés blancs sur les cases noires. En plus des 
différents modes, la touche 5 permet de changer la couleur d’un point. Comme 
précédemment, faites des essais en déplaçant le curseur et en changeant 
de mode. 
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Les autres commandes du générateur 


Comme il en existe beaucoup, la touche ? va nous donner un menu d'aide 
dans lequel figurent toutes les commandes accompagnées d'une expli- 
cation. Dès que vous l’aurez consulté et aurez trouvé la commande dont 
vous avez besoin, il vous suffira d'appuyer sur la touche ENTER pour 
revenir au graphique en cours. 


ñ—- RECOPIER UN _ AUTRE GRAPHIQUE 
C— NUMÉRO DU CRAPHIGUE 
D—- ENTRER LES VALEURS DECIMALES 
É-— EFFACER UN GRAPHIQUE 
F— FIM: SAUVEGARDE SUR CASSETTE 
H— HORIZON. CAJOUT.,RETIRER MIROIR, SCROLL 
L- IMNVUERSER UN GRAPHIQUE 
L-— LISTE DES GRAPHIQUES 
W-— MODE CDEPL. NOIR, BLANC, INUERSE) 
H— DONNER UN HÔôM 
R- ROTATION 99 DEGRES 
U— VERTICR. (AJOUT.,RETIRER,MIROIR, 5CROLL 
S— CHANGER LA COULÉUR D’UNM'POINT 
+ 
Le A 
789 
+ 4 6 + 
ALES 
+ 
Ecran 3 


CO La commande | 
Nous avons vu que le mode INVERSE permet d'inverser les carrés sur 
lesquels le curseur se déplace. La commande | permet la même chose, 
mais sur la totalité de l'écran en une seule opération. 
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DEPLACEMENT 
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CO La commande C 


Cette commande permet de créer ou de modifier un graphique. Pour une 
création, le programme demande de taper le numéro du graphique, qu'il 
signale sur l'écran, suivi de ENTER. Ce numéro est le suivant du dernier 
de la liste des graphiques déjà créés. Pour la modification d'un graphique, 
vous devez donner son numéro suivi de ENTER. Le fichier est limité à 
100, mais il est toujours possible de créer plusieurs cassettes pour des 
thèmes différents. 


(e 
(es) 


C9 CC U LU) bee C9 Qt Pet bent ent 07) La DS CO Cd 
Run WhbomO 
mn 
FOOD b CO et ee D D Che 
rubr 
Lee] 
7 
+ N © + 


num 1 
Nb 11 





E MAX: 87 27 26 


Ecran 5 
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Ü La commande H 


Cette commande est multiple. Après la frappe de la touche H, le pro- 
gramme demande si vous désirez ajouter ou retirer une ligne, obtenir un 
miroir où faire défiler le graphique (scroll) selon un axe horizontal. Vous 
devez alors taper une des touches A, R, M ous. 


e À pour Ajouter : le programme ajoute une ligne de carrés blancs à la 
position du curseur. La dernière ligne de la grille est perdue. 


(elplapl ne Lee NE OUT [TS TS 
té Ouk wii 
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LL Lo Lo 
bLuuuwnnbo Chaton 
tonnbboc bob Ch 


+ 
mb] 


+ © © + 


e R pour Retirer : le programme supprime la ligne à la position du curseur. 
Cette ligne est donc perdue, une ligne blanche apparaît alors en bas 








de la grille. 

15 
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31 
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re 
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BEFLACEMENT 

HO M : 

GRAPHIQUE Ho £26 

Ecran 7 
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e M pour Miroir : le programme inverse la figure comme le ferait un reflet 


dans l'eau. La position du curseur n'a aucune importance. 
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NOTE UN 
Eee onde LC el EU GT ed] 
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PHIGUE No 26 


I 
bi : 
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Ecran 8 


e S pour Scroll : toutes les lignes défilent vers le haut. La première ligne 


se retrouve en bas de la grille. La position du curseur n'a aucune 


importance. 
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Ecran 9 
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Cette commande réalise la même chose que la commande H mais à la 
verticale. A et R ajoutent et retirent des colonnes, M et S donnent un 


miroir ou font défiler la grille selon un axe vertical. 


Ü La commande V 
e A pour Ajouter : 


+ 
K_ À 
gd 
+ SN + 
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CR” 
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ua © 
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° R pour Retirer : 
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Ecran 11 


PFLACEMENT 
APHIQGUE Ho 26 
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e M pour Miroir : 
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Ecran 13 


DEPLACEMENT 
GRAPHIGUE No &86 


HO M : 
le sens inverse des aiguilles d'une montre. Quatre rotations successives 


Cette commande exécute une rotation d'un quart de tour de la grille, 
replacent le graphique dans sa position originale. 


C La commande R 
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ACEMENT 
HIGUE Mo &6 
Ecran 14 


DEFL 
HO M : 
GRAF 


[] La commande E 


Elle efface complètement le caractère en cours. Cette commande est à 
utiliser avec précaution. 


CE La commande N 


Chaque graphique doit porter un nom si l’on veut le retrouver. Le pro- 
gramme saisit, en bas de l'écran, le nom du graphique en cours. Entrez 
le nom, suivi de ENTER au clavier. 


[ La commande L 


Cette commande liste à l'écran la totalité des noms entrés par l'option N. 
Il est possible d'arrêter et de reprendre le listage en appuyant sur n'im- 
porte quelle touche, et ceci à tout moment. 
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[] La commande A 


Si vous voulez tracer un dessin en prenant comme base un graphique 
déjà existant, vous devez utiliser cette commande. Le programme de- 
mande en bas de l'écran le numéro du graphique que vous désirez re- 
copier dans le graphique en cours. En multipliant un graphique de base, 
on peut obtenir un dessin animé après avoir modifié chaque fois la posi- 
tion du personnage. 


[ La commande D 


Si vous désirez conserver dans le fichier des graphiques déjà utilisés 
dans vos programmes, vous pouvez avec cette commande entrer direc- 
tement les valeurs décimales. Le programme demande en premier lieu le 
numéro du caractère (entre 1 et 4), puis il saisit les huit valeurs corres- 
pondantes. 
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+ 


[us 
[e 


Fbetnip pat OT D EU D 
DO OEUrT à 7 
CouvuabT D 


CTERE®? 4 


pass 
CECCecT À 


2227222776 
eat Ty pe 


ol ol ol mt ml À 
un fon “ac ons Vous es “os on cn 
aie 


DDERDDDD 


2 
POPOrECETX 
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Ecran 16 


[ La commande F 


Cette commande entraîne la sauvegarde du fichier sur cassette ou dis- 
quette. Le programme attend que le lecteur de cassettes ou de disquettes 
soit en position d'enregistrement. Il suffit alors de taper sur la touche 
ENTER pour commencer l'écriture. 
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Le programme du générateur 





Précautions d'emploi 


Le programme étant très long, il est vivement conseillé de faire des sauve- 
gardes sur cassette ou disquette le plus souvent possible. N'attendez pas 
qu'il soit entièrement tapé et testé, personne n'est à l'abri d'une coupure de 
courant. Par précaution, il est indispensable d'avoir un double du programme 
sur une autre cassette ou disquette. Il en est de même pour la sauvegarde 
des graphiques. 


Avant de faire tourner le programme, vous devez initialiser la machine en 
appuyant simultanément sur les touches SHIFT CTRL et ESC. Vérifiez bien 
toutes les lignes sans oublier un seul signe, et sans confondre le chiffre Ÿ 
avec la lettre O ou le chiffre 1 avec la lettre I. 
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Programme 


19 REM GENERATEUR DE CARACTERES 

298 REM --------- 

30 DEFINT A-7 

48 MODE 1 

50 DIM S(100,4,8),N$(104),B$(16),BBS(16) 

60 N=1 

70 INPUT"PREMIERE UTILISATION (O/N)";AS$ 

808 IF A$="0" THEN 198 

99 CLS:PRINT"'METTEZ LE DATACORDFR FN LECTURF" 

108 OPENIN "ICARACTERES" 

118 INPUT#9,N 

120 FOR I=1 TO N 

130 INPUT#9 N$(I) 

140 FOR J=1 TO 4 

150 FOR K=1 TO 8 

164 INPUT#9,S(I,J,K) 

170 NEXT K,J,I 

180 CLOSEIN 

190 SYMBOL AFTER 128 

2088 SYMBOL 231,255,128,156,198,190,198,156,128 
210: SYMBOL 232, 255,255,:255;:255;:255,255:255.255 
228 SYMBOL 233. 255.128.128.128 128 128 128. 128 
238 SYMBOL 234,128,128,128,128,128,128,128,128 
240 SYMBOL 235.255 06,0 0,0 0.0.0 

250 SYMBOL 236,252,248,240,248,2270,142,7,3 

269 SYMBOL 237,63,31,15,31,59;:113,224,192 

270 SYMBOL 238.3,7,142,220 248,240, 248,252 

280: SYMBOL -239,:192:224,113,59,:31,:15:31,603 

298 FOR I1=128 TO 192:SYMBOL I1,0,08,0,0,08,8,84,8-: 
NEXT I 

300 S=1:X=8:Y=8:M=1 


310 M$(1)="DEPLACEMENT":MS(2)="NOTR":MS(3)="BI 
ANC":M$(4)="INVERSE" 

320 X(1)=18:X(2)=23:X(3)=18:X(4)=23:Y(1)=0:Y(2 
)=0:Y(3)-8:Y(4)=8 

330 F$(1)=" "+CHRS(240):FS5(2)=" "+CHRS(236)+ 
" "4#CHRS(237):F$(3)=" 789" 

340 F$(4)=CHRS(242)+" 4 6 "+CHRS(243) 

350 FS(5)=" 123":FS(6)=" "#CHRS(238)+" "+CH 
R$(239):FS(7)=" "+CHRS(241) 

38Q REM --------. 

390 REM DESSIN DU GFNERATEUR 


408 MODE 1 

414 FOR I=1 TO 16 

428 FOR J=1 TO 16:PRINT CHR$(233 
430 IF I=9 THEN PRINT CHR$(233) 
$(234) 


3: NEXT 
FLSE PRINT CHR 
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Commentaires du programme 


30 


Toutes les variables numériques contiendront des nombres entiers 
pour une question de rapidité. 

L'écran est en mode texte 40x25. 

Dimensionnement des tableaux (voir liste des variables). 

Au début du programme, il n’y a qu'un seul graphique. 

On demande si c'est la première utilisation. 

Si c’est la première utilisation, on ne lit pas le fichier. 

On indique à l'utilisateur de mettre la cassette en route. 

On ouvre le fichier CARACTERES. 

La variable N donne le nombre de graphiques dans le fichier. 
On recherche les N graphiques. 

Lecture di! nom dans NS). 

Lecture des quatre caractères d'un graphique. 

Lecture des huit nombres qui composent un caractère. 

Les valeurs sont placées dans le tableau S,,). 

NEXT des trois boucles. 

Fermeture du fichier CARACTERES. 

Les caractères définis commencent au code ASCII 128. 
Définition du caractère 231. 

Définition du caractère 232. 

Définition du caractère 233. 

Définition du caractère 234. 

Définition du caractère 235. 

Définition du caractère 236. 

Définition du caractère 237. 

Définition du caractère 238. 

Définition du caractère 239. 

Tous les caractères de 128 à 192 sont remis à zéro. 

S = numéro du graphique en cours, X et Y = coordonnées du 
curseur, M = mode. 

Nom des modes possibles. 

Positions des valeurs décimales des quatre caractères sur l'écran. 


Dessin de la définition des touches de déplacement. 


On efface l'écran. 

Il y a seize lignes à afficher. 

Il y a seize colonnes par ligne. 

On ferme la ligne. On indique si c'est la neuvième ligne. 
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440 NEXT I 
450 FOR I=1 TO 16 
46Q IF IT=9 THEN PRINT CHR$S(233); ELSE PRINT CH 


RS(235); 
478 NEXT I 

480 LOCATE 1,25: PRINT"GRAPHIQUE No*;S:LOCATE 
.24:PRINT "NOM: "; NS(S):LOCATE 1,23: PRINT M$(M) 
498 FOR I=1 TO 7 LOCATE 29,I+4:PRINT FS{I):NEX 
A 

DÉQUREM Len Gie oasis 


594 REM AFFICHER UN GRAPHIQUE 

600 FOR P-1 TO 4 

6104 IF P>2 THEN YY=8 ELSE YY=0 

62Q IF P/2=INT(P/2) THEN XX=8 FELSE XX=@ 

634 FOR I=1 TO B:FOR J=7 TO @ STFP -] 

640 IOCATF XX+8-J,YY+I 

654 IF S(S 1) AND ?7°J THEN PRINT CHR$S(232) FE 


LSE PRINT CHR$S(233) 

660 NEXI J,1,P 

670 FOR I=1 TO 4 

680 SYMBOL 127+1,5(5,1,1),$(5,1,2),5(S,1,3),S( 
Sd) S(55:1;5);5  (S 1110) 08:12:/)5 905, L0) 
690 NEXT I 

704 LOCATE 8,19:PRINT CHR$S(128); CHRS(129) 

710 LOCATF 8 24: PRINT CHR$(134):CHRS(131) 


728 GOSUB 1544 

730 LOCATE 1,24:PRINT CHR$S(18); "NOM: ";:NS(S) 
744 GOTO 1184 

780 REM -------- 2-2. use 
790 REM DÉPLACEMENTS 

800 IF X<9 THEN P=1:XX=X-1 ELSE P=2:XX=2X-9 
81@ IF Y<Q THEN YY=Y ELSF P=P+2:YY=Y-8 

820 AS$S=INKFYS:IF AS$="" THEN 828 

830 IF A$="C" THEN GOSUB 1308:GOT0 608 

849 IF AS="M" THEN GOSUB 1408 

850 IF AS="N" THEN GOSUB 3588 

860 IF A$-"F" THEN 4208 

870 IF A$="l" THEN GOSUR 3608:GOT0 408 

884 IF A$="?" THEN GOSUB 1808:GOT0 408 

890 IF A$="I" THEN GOSUB 1608:GOTO 608 

90Q IF AS="F" THEN GOSUB 1700: GOTO 608 

916 IF AS$S="H" THEN GOSUB 2188:GOT0 608 

924 IF AS="V" THEN GOSUB 250@:GOT0 608 
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440 


480 


840 


850 
860 
870 
880 
890 
900 


910 


920 


NEXT de la boucle. 

Il y a seize colonnes par ligne. 

On ferme la grille. On indique si c'est la neuvième colonne. 

NEXT de la boucle. 

On affiche le nom et le numéro du graphique en cours ainsi que le 
mode. 

On affiche la définition des touches de déplacement. 

Boucle pour les quatre caractères qui composent un graphique. 
Oninitialise la position verticale des caractères. 

Oninitialise la position horizontale des caractères. 

Huit nombres composent un caractère, chaque nombre comporte 
huit bits. 

On positionne le curseur. 

Si le bit est à 1, on affiche un carré noir, sinon un carré blanc. 
NEXT des trois boucles. 

Définition des quatre caractères dans leur taille réelle. 

Définition avec SYMBOL des caractères à partir du code ASCII 128. 
NEXT de la boucle. 

On affiche les deux premiers caractères dans leur taille réelle. 
Puis les deux suivants. 

Le sous-programme en 1500 affiche les valeurs décimales. 

On affiche le nom du graphique. 

On va en 1180 dans la partie DEPLACEMENT pour afficher le 
curseur. 


En fonction de la position du curseur (X et Y), on recherche dans 
quel caractère on se trouve (initialisation de P, XX et YY). 

On saisit dans AS la dernière touche enfoncée. 

Si A$=“C”, on change de graphique. On retourne en 600 pour 
l'affichage du nouveau graphique. 

Si A$="M”, on change de mode (noir, blanc, déplacement et in- 
verse). 

Si A$="N”, le programme saisit le nom du graphique en cours. 

Si A$="F”, le programme sauve le fichier sur cassette. 

Si A$=“L”, on affiche le nom des graphiques déjà définis. 

Si A$="?”, le programme affiche un menu d'aide. 

Si A$="“|”, on inverse tous les pixels des quatre caractères. 

Si A$="E”, le programme efface complètement le graphique en 
Cours. 

Si A$=“H”, on effectue une modification horizontale (voir sous- 
programme). 

Si A$="V”, on effectue une modification verticale (voir sous-pro- 
gramme). 
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930 A$="R" THEN GOSUB 29@8:GOT0 688 


IF 

9408 IF AS$="D" THEN GOSUB 3800:GOTO0 400 

950 IF A$="A" THEN GOSUR 4008:GOTO 608 

960 IF AS<"1" OR A$>"Q9" THEN 820 

970 IF M=4 OR AS="5" THEN S(S,P,YY)=S(S,P,YY)X 
( 


OR(2°(7-XX)):GOTO 1810 

980 IF M=1 THEN 1058 

909 IF M=3 THEN S(S,P,YY)=S(S,P,YY)AND 255-2°( 
7-XX) 

1000 IF M=2 THEN S(S,P,YY)=S(S,P,YY)OR(2"(7-XX 


}) 
1918 S5YMBOL 127+P,S(S, P,1),S 
(S,P,;4),S(S,P;S5),S(S .P,6),$( 
18206 LOCATE 8,19:PRINT CHRS( 
1938 LOCATE 8,28:PRINT CHRS( 
1944 LOCATE X(P),Y(P)+YY:PRIN 
1858 LOCATE X,Y:IF S(S,P,YY) AN 
PRINT CHRS(232) ELSE PRINT CHR 
1060 IF AS$="4" THEN X=X-1 
1470 IF AS$="6" THEN X=X+1 
1080 IF AS="8" THEN Y=Y-] 
1090 IF AS="2" THEN Y=Y+1 


1100 IF AS$="7" THEN X=X-1:Y=Y-1 
1110 IF A$="9" THEN X=X+1:Y=Y-1 
1120 IF A$="1" THEN X=X-1:Y=Y+1 
1130 IF AS$="3" THEN X=X+1:Y=Y+1 


1140 IF X=-Q THEN X=16 

1150 IF X=17 THEN X=1 

1160 IF Y=0 THEN Y=16 

1170 IF Y=17 THEN Y=1 

1188 LOCATE X,Y:PRINT CHR$(231) 

1190 GOTO 8088 

1280 REM ------------------------------ 

1290 REM NUMERO DU GRAPHIQUE 

1308 LOCATE 1,25:PRINT CHRS(18);"No GRAPHIQUE 

CMAXE Ve TF N>99 THEN PRINT " 106 )"; ELSE PRIN 
+1-.")". 

1310 INPUT; "";A$:S=VAL(AS):IF S<1 OR S>N+1 OR 

S>100 THEN 1300 

132@ LOCATE 1,25:PRINT CHR$(18); "GRAPHIQUE No" 

193; 

1330 IF S>N THEN N=S 

1348 RETURN 

1380 REM ------------------------------ 

1390 REM MODE 

1400 M=M+1:IF M>4 THEN M=1 
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930 
940 


950 


960 


970 


980 

990 

1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 


1160 


1170 


1180 
1190 
1300 


1310 
1320 
1330 
1340 
1400 


Si A$="R”, le programme exécute une rotation de 90 degrés. 

Si A$="“D”, on saisit directement les valeurs décimales d’un carac- 
tère. 

Si A$="A”, le programme recopie les valeurs d'un graphique dans 
un autre. 

Si A$ ne correspond pas à une touche de déplacement, on revient 
à la saisie de A$. 

Si l'on est en mode inverse ou A$="5”, on change la valeur du 
pixel sous le curseur. 

Si l'on est en mode déplacement, on saute les lignes 990 à 1040. 
Si l’on est en mode blanc, on met à zéro le pixel sous le curseur. 
Si l’on est en mode noir, on met à un le pixel sous le curseur. 

On redéfinit avec SYMBOL le caractère concerné. 

On affiche en taille réelle les deux premiers caractères. 

Puis les deux autres. 

On affiche la nouvelle valeur décimale. 

Suivant la valeur du pixel sous le curseur, on affiche un carré noir 
ou blanc. 

Si A$="4”, on déplace le curseur à gauche. 

Si A$="6”, on déplace le curseur à droite. 

Si A$="8”, on déplace le curseur en haut. 

Si A$="2”, on déplace le curseur en bas. 

Si A$="7”, on déplace le curseur en haut à gauche. 

Si A$="9”, on déplace le curseur en haut à droite. 

Si A$="1”, on déplace le curseur en bas à gauche. 

Si A$="3”, on déplace le curseur en bas à droite. 

Si le curseur déborde à gauche du graphique, on le positionne à 
droite. 

Si le curseur déborde à droite du graphique, on le positionne à 
gauche. 

Si le curseur déborde en haut du graphique, on le positionne en 
bas. 

Si le curseur déborde en bas du graphique, on le positionne en 
haut. 

On affiche le curseur. 

On revient à la saisie de A$. 

Le programme demande le numéro du graphique dans la limite de 
N+1. 

On saisit et l’on vérifie la réponse de l'utilisateur. 

On affiche le nouveau graphique. 

On modifie N si le nouveau numéro de graphique lui est supérieur. 
Retour du sous-programme. 

On change le mode M. 
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1410 LOCATE 1,23:PRINT CHR$(18);MS(M) 
1428 RETURN 

LABO REM messes id ess. se 

1498 REM VALEURS DECIMALES 

1500 FOR I=1 TO 4 

1518 FOR J=1 TO 8 

1529 LOCATE X(I),Y(T)+J:PRINT S(S,I,d);" " 
1530 NEXT J,I 

1549 RETURN 

RE Ad sens 

1590 REM INVERSION 

1690 FOR I=1 TO 4 

1618 FOR J=1 10 8 

1620 S(S,1,9)=$(S,1,J) XOR 255 

1638 NEXT J,I 

1648 RETURN 

FORD PEN = ee ee 

1699 REM EFFACER UN GRAPHIQUE 

1709 FOR Iz=1 TO 4 

1718 FOR J=1 TO 8 

1726 S(S,1,J)=0 

1730 NEXT J,I 

1748 RFTURN 

1780 PERS eraneese ent 

1/90 REM MENU D'AIDE 

1808 CLS 

1819 PRINT"A- RECOPIER UN AUTRE GRAPHIQUE" 
1829 PRINT"C- NUMERO DU GRAPHIQUE" 

1839 PRINT"D- ENTRER LES VALEURS DECIMALES" 
1848 PRINT'E- EFFACER UN GRAPHIQUE" 

1850 PRINT'F- FIN: SAUVEGARDE SUR CASSETTE" 
1868 PRINI"H- HORIZON. (AJOUT, ,RFTIRER, MIROIR, S 
CROLI "; 

1870 PRINT"I- INVERSER UN GRAPHIQUE" 

1880 PRINT'L- LISTE DFS GRAPHIQUES" 

1898 PRINT"M- MODE (DEPL., NOIR, BLANC, INVERS 
E)" 

1908 PRINT'N- DONNER UN NOM" 

1918 PRINT"'R- ROTATION 98 DEGRES" 

1928 PRINT"V- VERTICA. (AJOUT. ,RETIRER, MIROIR, S 
CROLL"; 

19308 PRINT"S- CHANGER LA COULEUR D'UN POINT" 
1940 PRINT 

1959 FOR I=1 TO 7:PRINT TAB(15);F$ 
1968 IF INKEYS<>CHRS(13) THEN 1968 
1978 RETURN 

2 DB RÈM Serena 
2094 REM HORIZONTALE 


(I): NEXT I 
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1410 
1420 
1500 
1510 
1520 
1530 
1540 
1600 
1610 
1620 


1630 
1640 
1700 
1710 
1720 
1730 
1740 
1800 
1810 
1940 
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1970 


On affiche ce mode. 
Retour du sous-programme. 
Il y a quatre caractères. 


Chaque caractère est composé de huit valeurs décimales. 


On affiche la valeur décimale. 

NEXT des boucles. 

Retour du sous-programme. 

Il y a quatre caractères. 

Chaque caractère comporte huit lignes. 
On inverse chaque valeur en effectuant un OÙ exclusif 
(fonction XOR). 

NEXT des boucles. 

Retour du sous-programme. 

Il y a quatre caractères. 

Chaque caractère contient huit lignes. 
On remet à zéro chaque ligne. 

NEXT des boucles. 

Retour du sous-programme. 

On efface l'écran. 


On affiche la définition de toutes les commandes du générateur. 


Cette boucle affiche les touches de déplacement. 


On attend que la touche ENTER soit enfoncée pour continuer. 


Retour du sous-programme. 
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210@ LOCATE 1,22:PRINT CHR$(18); "AJOUTER, RETIR 
ER, MIROIR, SCROLL (A/R/M/S)"; 

2110 AS=INKEYS:IF A$="" THEN 2110 

2120 IF A$<>"A" AND A$<>"R" AND AS<>"M" AND AS 
<>"S" THEN 2370 

2130 GOSUB 3100 

2140 IF A$="S" THEN 2310 

2150 IF A$="M" THEN 2270 

2160 IF A$="R" THEN 2220 

2170 FOR I=16 TO Y+1 STEP -1 

2180 BS(I)=BS(I-1) 

2190 NEXT I 

2200 BS(Y)="0000000000880000" 

2210 GOTO 2360 

2226 FOR I=Y TO 15 

2230 BS(I)=BS(I+1) 

224@ NEXT I 

2250 B$(16)="0000000000000000" 

2260 GOTO 2360 

2270 FOR I=1 TO 8 

2280 BS$=BS(I):BS$(I1)=B$(17-1):B$(17-1)=B$ 

2290 NEXT I 

2300 GOTO 2360 

2310 B$=B$(1) 

2320 FOR I=1 TO 15 

2330 BS(I)=BS(I+1) 

2340 NEXT I 

2350 B$(16)=B$ 

2360 GOSUB 3300 

2370 LOCATE 1,22:PRINT CHRS(18) 

2380 RETURN 

DABO. IREM Eee SES SES ess 

2490 REM VERTICALE 

2500 LOCATE 1,22:PRINT CHRS(18); "AJOUTER, RETIR 
ER,MIROIR, SCROLL (A/R/M/S)"; 

2510 AS=INKEYS:IF A$="" THEN 2510 

2520 IF A$<>"A" AND AS<>"R" AND A$<>"M" AND A$ 
<>"S" THEN 2760 

2530 GOSUB 3100 
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2100 


2110 
2120 
2130 


2140 
2150 
2160 


2170. 


2180 
2190 
2200 
2210 
2220 


2230 
2240 
2250 
2260 
2270 


2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 


2370 


2380 
2500 
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2530 


On demande une des quatre options AJOUTER, RETIRER, 
MIROIR ou SCROLL. 

On saisit dans A$ la réponse de l'utilisateur. 

Le programme vérifie cette réponse. 

Le sous-programme en 3100 transfère les valeurs numériques du 
tableau $ dans le tableau alphanumérique B$. 

Si A$="S”, on va en 2310 pour le SCROLL. 

Si A$="M”, on va en 2270 pour le MIROIR. 

Si A$="R”, on va en 2220 pour retirer une ligne de pixels. 

Il y a seize lignes par graphique. On décale le tableau B$ vers le 
bas jusqu'au curseur Y. 

On décale le tableau vers le bas. 

NEXT de la boucle. 

On ajoute une ligne de blanc à la position du curseur. 

On saute le reste du sous-programme. 

Si l’on supprime une ligne du graphique, il n’en restera plus que 
quinze. On décale le tableau B$ vers le haut à partir du curseur. 
On décale le tableau vers le haut. 

NEXT de la boucle. 

On met la seizième ligne à zéro. 

On saute le reste du sous-programme. 

I y a deux fois huit lignes dans un graphique. On échange la pre- 
mière avec la seizième, la deuxième avec la quinzième, etc. 

On échange le contenu des seize lignes du tableau B$. 

NEXT de la boucle. 

On saute le reste du sous-programme. 

On garde dans la variable B$ le contenu de la première ligne. 

Il y a quinze lignes à monter d’un cran. 

On monte chaque ligne d’un cran. 

NEXT de la boucle. 

On replace à la seizième ligne le contenu de la variable B$. 

Le sous-programme en 3300 transfère les valeurs alphanumé- 
riques du tableau B$ dans le tableau numérique S. 

On efface de l'écran le message affiché au début du sous-pro- 
gramme. 

Retour du sous-programme. 

On demande une des quatre options AJOUTER, RETIRER, 
MIROIR ou SCROLL. 

On saisit dans A$ la réponse de l'utilisateur. 

Le programme vérifie cette réponse. 

Le sous-programme en 3100 transfère les valeurs numériques du 
tableau S dans le tableau alphanumérique B$. 
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2540 
2550 
2560 
2570 
2580 
6-X) 
2590 
2600 
2610 
2620 
+"g" 
2630 
2640 
2650 
2660 
2670 


2680 
2690 
2700 
27108 
2720 
2730 
2740 
2750 
2760 
2770 
2880 
2890 
2900 
2910 
2920 


2930 

2948 
2950 
2960 
3080 
3490 
3100 


34 


IF A$="S" THEN 2720 
IF A$="M" THEN 2650 
IF A$="R" THEN 2610 
FOR I=1 TO 16 


BS(I)=LEFTS(BS(I),X-1)+"@"+MIDS(BS(I),X, 1 


NEXT I 
GOTO 2750 
FOR I=1 TO 16 


BS(I)=LEFTS(BS(I),X-1)+RIGHTS(BS(I),16-X) 


NEXT I 

GOTO 2758 

FOR I=1 TO 16 
FOR J=1 TO 16 


BBS(T)=1FFTS(BBS(I),J-1)+MIDS(BS(I),17-J, 
1)+RIGHTS(BBS(I),16-J) 


NEXT J 
BS(I)=BBS(I) 
NEXT I 

GOTO 2758 

FOR I=1 TO 16 


BS(I)= =RIGHTS(BS(L), 15)+LEFTS(BS(I),1) 


NEXT 
GOSUB 3300 


LOCATE 1,22:PRINT CHR$(18) 


RETURN 


REM ------------------- 
REM ROTATION DE 98 DEGRES 


GOSUB 3180 


FOR I=1 TO 16:FOR J=1 TO 16 


BB$S(17-J)=LEFTS(BBS(1 
.J,1)+RIGHTS(BBS(17-J),16-I) 


NEXT J,I 

FOR I=1 TO 16: B$S(I)= 
GOSUB 3380 

RETURN 


REM ------------------- 


REM S( 


.,) DANS RS() 
FOR I=1 


0 16 


— 


7-9J),1-1)+MID$S(B$S(I) 


:NEXT I 
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Si A$=“S”, on va en 2720 pour le SCROLL. 

Si A$="“M”, on va en 2650 pour le MIROIR. 

Si A$="R”, on va en 2610 pour retirer une colonne de pixeis. 

Il y a seize lignes par graphique. 

On décale les valeurs de chaque ligne du tableau vers la droite à 
partir du curseur X. 

NEXT de la boucle. 

On saute le reste du sous-programme. 

Il y a seize lignes par graphique. 

On décale le tableau vers la gauche jusqu'au curseur X. 

NEXT de la boucle. 

On saute le reste du sous-programme. 

Il y a seize lignes par graphique. 

Il y a seize colonnes par graphique. 

On échange le contenu de la première colonne avec celui de la 
seizième, le contenu de la deuxième avec celui de la quinzième, 
etc. Le résultat est conservé dans le tableau BB$. 

NEXT de la deuxième boucle. 

On place le résultat BB$ dans le tableau B$. 

NEXT de la première boucle. 

On saute le reste du sous-programme. 

Il y a seize lignes par graphique. 

On décale toutes les colonnes vers la gauche ; la colonne un prend 
la place de la colonne seize. 

NEXT de la boucle. 

Le sous-programme en 3300 transfère les valeurs alphanumé- 
riques du tableau B$ dans le tableau numérique S. 

On efface de l'écran le message affiché au début du sous-pro- 
gramme. 

Retour du sous-programme. 

Le sous-programme en 3100 transfère les valeurs numériques du 
tableau S dans le tableau alphanumérique B$. 

Il y a seize lignes de seize colonnes par graphique. 

On échange les valeurs par ligne et colonne pour obtenir une ro- 
tation de 90 degrés. Le résultat est conservé dans le tableau BB$. 
NEXT des deux boucles. 

On replace dans le tableau B$ le résultat contenu dans le 
tableau BB$. 

Le sous-programme en 3300 transfère les valeurs alphanumé- 
riques du tableau B$ dans le tableau numérique S.. 

Retour du sous-programme. 

Il y a seize valeurs à transférer. 
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3110 IF I<9 THEN Z=1:22Z=I ELSE Z=3:27=1-8 
31206 BS(I)=BINS(S(S,Z,22Z),8)+BINS(S(S,Z+1,ZZ), 
8) 

3130 NEXT I 

3140 RETURN 

DB IREM see ne Se 

3290 REM B$() DANS S(,,) 

3300 FOR I=1 TO 16 

3310 IF I<9 THEN Z=1:27=1 ELSE Z=3:7 
3320 S(S,2Z,2Z)=VAL("&X"4LEFTS(BS(I), 
1,2Z)=VAL("&X"+RIGHTS(BS(I),8)) 

3330 NEXT I 

3340 RETURN 

ADO REM masses rss en nemmee 

3490 REM DONNER UN NOM 

3500 LOCATE 1,24:PRINT CHRS(18);:INPUT"NOM"; NS 
(S) 

3510 LOCATE 1,24:PRINT CHR$(18); "NOM: "; NS(S) 
3520 RETURN 

SOON RM el nn te 

3590 REM LISTE DES NOMS 

3608 CLS 

3610 FOR I=1 TO N 

3620 IF N$(I)="" THEN 3650 


© NI 


3630 PRINT 1;"- ":NS(I) 
3640 IF INKEYS<>"" THEN WHILE INKEYS="":WEND 
3650 NEXT I 


3668 IF INKFYS="" THEN 3660 
3670, RETURN 

3780. REM == us 

3790 REM ENTRER LES VALEURS DECIMALES 

3800 CLS 

3810 PRINT 1,2,CHRS(128); CHRS(129):PRINT 3:4,0 

HR$(130); CHR$S(131): PRINT 

3820 INPUT"NUMERO DU CARACTERE"; C 

3830 IF C<1 OR C>4 THEN 3900 

3840 FOR I=1 TO 8 

3850 PRINT"VALEUR";I;: INPUT S(S,C,I) 

3860 IF S(S,C,I)<@ OR S(S,C,1)>255 THEN 3850 
3870 NEXT I 

3880 SYMBOL 127+C,S(S,C,1) 
(SEC, 4),:S(5, 0,5), S(S,C;67, 

3890 GOTO 3800 

3900 RETURN 

3900 REM ses ea sc 

3990 REM RECOPIER UN AUTRE GRAPHIQUE 

4008 LOCATE 1,22:PRINT CHRS(18);"No DE L'AUTRE 
GRAPHIQUE "; 

4010 INPUT A:IF A<i OR A>N THEN 4058 
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3130 
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4010 


Un graphique comportant quatre caractères, la variable Z=1 in- 
dique que l’on transfère les caractères 1 et 2, et Z=3 les caractères 
8 et 4. La variable ZZ donne le numéro de ligne dans le tableau S. 
On place dans une ligne alphanumérique du tableau B$ le contenu 
binaire de deux lignes du tableau S. 

NEXT des boucles. 

Retour du sous-programme. 

Il y a seize valeurs à transférer. 

Un graphique comportant quatre caractères, la variable Z=1 in- 
dique que l'on transfère les caractères 1 et 2, et Z=3 les caractères 
8 et 4. La variable ZZ donne le numéro de ligne dans le tableau S. 
On place, dans deux lignes du tableau S, le contenu numérique du 
tableau B$. 

NEXT des boucles. 

Retour du sous-programme. 

Le programme demande le nom du caractère. 

On affiche ce nom en bas de l'écran. 

Retour du sous-programme. 

Efface l'écran. 

I y a N noms à afficher. 

Si le nom est une chaîne vide, on n'affiche rien. 

On affiche le numéro et le nom du caractère. 

Si une touche est enfoncée, on stoppe le programme et l’on attend 
qu'une autre touche soit appuyée. 

NEXT de la boucle. 

On attend qu'une touche soit appuyée. 

Retour du sous-programme. 

Efface l'écran. 

On affiche les quatre caractères qui composent le graphique. 

Le programme saisit le numéro du caractère à modifier. 

Si la réponse est incorrecte, on revient à la saisie. 

Il y a huit valeurs à saisir. 

Le programme saisit la valeur I. 

Si la réponse est impossible, on repose la question. 

NEXT de la boucle. 

Oninitialise, avec la fonction SYMBOL, le caractère ainsi modifié. 
On revient à la saisie d’un caractère (toujours pour le graphique en 
cours). 

Retour du sous-programme. 

Le programme demande le numéro du graphique à recopier. 

On saisit et on vérifie la réponse de l'utilisateur. 


LE PROGRAMME DU GÉNÉRATEUR 37 


4020 
4030 
4040 
4050 
4060 
4180 
4190 
4200 


CORDER 


4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4298 
4300 
4310 
4320 


38 


FOR I=1 TO 4:FOR J=1 TO 8 


S(S,I,9J)=S(A,I,J) 


NEXT D I 


LOCATE” 1,22:PRINT CHR$(18) 


RETURN 


REM ==" 


REM SAUVEGARDE 


CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATA 


EST PRET POUR L'ENREGISTREMENT" 


IF INKEY$<>CHRS$S(13) THEN 4210 


OPENOUT "I! CARACTERES" 


PRINT#9, N 
FOR I=1 TO N 
PRINT#9 NS (D 
FOR J=1 TO 4 
FOR K=1 TO 8 


PRINT#9,S(I,9J,K) 


NEXT K,J,I 
CLOSEOUT 

CLS: PRINT"MERCI 
END 
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4020 
4030 
4040 
4050 


4060 
4200 


4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 


Il y a quatre caractères contenant chacun huit valeurs. 

On recopie le graphique A dans le graphique S. 

NEXT des deux boucles. 

On efface de l'écran le message affiché au début du sous-pro- 
gramme. 

Retour du sous-programme. 

Le programme demande à l'utilisateur de mettre le magnétophone 
en position enregistrement puis d'enfoncer la touche ENTER. 

On attend que la touche ENTER soit appuyée. 

On ouvre le fichier CARACTERES. 

On écrit sur cassette le nombre de graphiques. 

Il y a N graphiques à sauver. 

On écrit le nom du graphique. 

Il y a quatre caractères par graphique. 

Il y a huit valeurs par caractère. 

On écrit les valeurs contenues dans le tableau S. 

NEXT des trois boucles. 

On ferme le fichier. 

On efface l'écran. 

Fin du programme. 


Liste des variables 


A 

AS 
B$() 
BB$() 
C 
F$() 

| 


J 
K 
M 


M$() 
N 
NS() 
P 
S 


S(,;) 
X&Y 
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Numéro du graphique à recopier. 

Réponse de l'utilisateur. 

Valeurs binaires du graphique en cours. 

Sauvegarde du tableau BS( ). 

Numéro du caractère choisi pour l'entrée directe en décimale. 
Dessin des touches de déplacement. 

Indice de boucle FOR/NEXT. 

indice de boucle FOR/NEXT. 

Indice de boucle FOR/NEXT. 

Mode en cours. 

Nom des modes. 

Nombre de graphiques dans le fichier. 

Nom des graphiques. 

Numéro du caractère en cours de modification. 
Numéro du graphique en cours de modification. 
Valeurs décimales des graphiques du fichier. 
Coordonnées du curseur dans le graphique en cours. 
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XX & YY Coordonnées du curseur dans le caractère en cours. 

X()& Y() Coordonnées des valeurs décimales affichées à l'écran. 

Z Indique si l’on transfère les deux caractères du haut ou les 
deux du bas. 

ZZ Indique, dans le transfert d'un graphique, le numéro de ligne 
du caractère. 


Comment modifier le générateur 


Bien qu'il comporte déjà beaucoup de commandes, il peut être intéressant 
de lui en ajouter de nouvelles. Pour effectuer des modifications dans de 
bonnes conditions, voici quelques remarques complémentaires. 


Tous les graphiques sont stockés en permanence dans le tableau à trois 
dimensions S. La première dimension concerne le numéro du graphique (de 
1 à 100), la deuxième, le numéro du caractère (de 1 à 4), et la troisième, les 
codes qui composent un caractère (de 1 à 8). Prenons comme exemple le 
robot du mode d'emploi (il est ici dans le graphique n° 1). 





S(1,1,1) S(1,2,1) 
S(1,1,2) S(1,2,2) 
S(1,1,3) S(1,2,3) 
S(1,1,4) S(1,2,4) 
S(1,1,5) S(1,2,5) 
S(1,1,6) S(1,2,6) 
S(1,1,7) S(1,2,7) 
S(1,1,8) S(1,2,8) 
S(1,3,1) S(1,4,1) 
S(1,3,2) S(1,4,2) 
S(1,3,3) S(1,4,3) 
S(1,3,4) . S(1,4,4) 
S(1,3,5) S(1,4,5) 
S(1,3,6) S(1,4,6) 
S(1,3,7) S(1,4,7) 
S(1,3,8) S(1,4,8) 


Figure 1.- Tableau S 
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La routine en 3100 transfère un graphique du tableau S vers le tableau B$ 
sous forme binaire. Le graphique choisi est pointé par la variable S. Après 
l'appel de cette routine, le tableau B$ contient les valeurs suivantes (à partir 
de l'exemple de la figure 1). 





” 
B$(3) 0000111111100000 
B$(4) 0000001110000000 
ss 
B$(6) 0011111111111000 
B$(7) 0110011111001100 
. 
B$(9) T100011111110110 
ss(10 
B$(11) 0000011011100000 
B$(12) 0000011011000000 
gs (19 
B$(14) 0000011011000000 
B$(15) 0000011011000000 
ss(15 


Figure 2. - Tableau B$ 


Le tableau de chaînes B$ est beaucoup plus souple à manipuler pour vos 
nouvelles commandes que le tableau décimal S qui demande l’utilisation des 
fonctions logiques OR, AND, NOT ou XOR. La routine en 3300 replace dans 
le tableau $S le contenu du tableau B$. 


Vous devez ajouter les nouvelles routines à partir des lignes 4400. Les lignes 
qui y font appel seront placées entre 820 et 950 sans effacer celles qui s’y 
trouvent déjà. Si vous avez effacé l'écran, faites un GOTO 400 au retour de 
la routine, sinon GOTO 600 suffit pour afficher uniquement le graphique. 
N'oubliez pas d'ajouter vos nouvelles commandes dans le menu d'aide. Vé- 
rifiez bien que l’initiale employée n'existe pas encore. Les lettres restantes 
sontBGJKOPQSTUWXYZ. 
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Exemple d'utilisation 





Le programme qui suit donne un exemple d'utilisation des caractères gra- 
phiques sur Amstrad. ll est relativement simple dans son exécution, malgré 
la très longue liste de définition des graphiques. Son but est, avant tout, 
d'expliquer l'animation de personnages ou d'objets sur l'écran. Les carac- 
tères ont été définis avec le générateur en utilisant le plus souvent possible 
la commande A pour multiplier à volonté le dessin de base de l'androïde. 
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Programme 


REM EXEMPLE SUR AMSTRAD 
REM 
DEFINT A-Z 


480 
490 


548 
5950 


610 
620 
680 
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MODE @ 
B$(1)=" 


*+CHRS(B)+CHRS(18)+" * 


B$ 2): CHRS(208)+CHRS(281) 
R 


RE DEFINITION DES CARACTERES 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
REM 


AFTER 128 
1283-2301: 741 
129,224,1608,224,128,192, 240,240, 232 
1930/1111 11,141 13 
131,232,232,64,64,64,64,64,112 
132,3,2,3,0,3,3,7,7 
133,224,1608,224,128,192, 224,208, 208 
de 


nd 
128,192,224,224, 224 


D 
2 
Le] 
B 
an 
B 
ND 
nn 
B 


,192,240,240, 248 
4,64,64,112 
92,224,224,224 


IVe 


146,11,11, 
ue 


149! 254,234, 
150, 63,35, 34, 
151,254, 226, 34, 
152,63, 43,43, 40 
153,254, 226, 226 
154,63, 35,34, 34, 
155, 254, 226, 34,3 
156, 7,13,7,1.9,7 
157,192,192,192, 
154:7.7,2.:2,2 2 
159,192, 192,128 


GO BE © NON + © © 
Bro- Li] 


CD CD ED = Me = = MN) 
= 


, 250,226, 226 
4,34 

2 2 

5,3 

4,250, 226,226 
32 92 

, 34, 34, 34 


,192,192,192 


6, 
3! 
4 
3 
2 
3 


Ne 
Bnco- 
LONNEEDN 


1 
5 
5 


LMD BEMNBOMmO BE 
ER Ca 


no 
N NJ 01 = 
© 


128,128,128,128 
,192,224,224 
,32,32,224 

15 
,192,192,192 
167,192,192, 
200,63, 32,32, 
261,254,2,2,2 


4,32,64,128 
,32, 32 
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Commentaires du programme 


30 


40 
60 


70 
200 
210 | 
620 
700 


710 
720 


730 
800 


Toutes les variables numériques contiendront des nombres entiers 
pour une question de rapidité. 

L'écran est en mode texte 20X25. 

Chaîne qui effacera le personnage pendant ses déplacements ho- 
rizontaux. 

Chaîne qui effacera le personnage pendant ses déplacements ver- 
ticaux. 

Les caractères définis commencent au code ASCII 128. 


Définitions des caractères 128 et 201 pour le dessin de l'androïde 
dans toutes les positions. 

Il y a 10 positions du personnage. 

La définition commence au code ASCII 128 (124+1+4=128). 
Chaque graphique est stocké dans le tableau F$. Le code 10 per- 
met de descendre d'une ligne, les codes 8 de revenir deux posi- 
tions en arrière. Les quatre caractères se retrouvent regroupés 
pour former un graphique. 

NEXT de la boucle. 

Les passerelles occupent 16 colonnes sur l'écran. 
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698 REM DEFINITION DES GRAPHIQUES 

760 FOR I=1 TO 16 

710 Z=-124+1%4 

720 FS(I)=CHRS(Z)+CHRS(Z+1)+CHRS(18)+CHRS(8)+C 
HRS(B)+CHRS(Z+2)+CHR$S(Z+3) 

730 NEXT 

780 REM ----------------- 

798 REM ON PLANTE LE DECOR 

868 FOR I=1 TO 16 

818 LOCATE I,22:PRINT"=":LOCATE I,3:PRINT"=" 
826 NEXT 

830 FOR I=1 TO 19 

840 LOCATE 14,1:PRINT CHRS(208);CHRS(201) 
850 LOCATE 1,I1:PRINT CHR$S(208);CHRS(201) 

868 NEXT 

980 REM ----2------"- "2  " 

998 REM DEPLACEMENT DE L'ANDROIDE 

1000 X=1:Y=20 

1010 LOCATE X,Y:PRINT F$(1) 

1020 FOR I=1 TO 1888:NEXT I 

1838 LOCATE X,Y:PRINT FS$(2) 

18640 FOR I=1 TO B@8:NEXT I 

1050 D=3:F-=6:N=14:IX=1:1IY-0:B=-1:EX-0:EY=0:T-40 
) 

1060 GOSUB 1368 

1076 LOCATE X,Y:PRINT B$(1) 

1089 Y=Y-2:X=X-1 

1098 D=6:F=8:N=18:IX=0: IY=-1:B=2:EX=0:EY=1:T=6 
00 

1100 GOSUB 1300 

1110 Y=Y+1 

1126 LOCATE X,Y:PRINT BS5(2) 

1130 X=X-2 

1140 D=8:F=11:N=10:IX=-1:IY=0:B=1:EX=1:EY=0: T= 
1150 GOSUB 1308 

1160 LOCATE X+1,Y:PRINT B$(1) 

1170 X=X-1 

1180 D-6:F=8:N=18:IX=0:IY=1:B=2:EX=0:EY=0: T=60 
6 

1190 GOSUB 1368 

1200 LOCATE X,Y:PRINT B$(2) 

1210 GOTO 1686 

1280 RM ES = 

1290 REM DEPLACEMENT 

13006 P=D 

1310 FOR I=1 TO N 

1328 LOCATE X,Y:PRINT FS$(P); 

1330 FOR J=1 TO T:NEXT J 

1340 P=P+1:IF P=F THEN P=D 

1350 IF X+EX=0 OR Y+EY=@ THEN 1378 

1360 LOCATE X+EX,Y+EY:PRINT B$(B); 

1370 Y=Y+IY:X=X+IX 

1380 NEXT 

1390 RETURN 
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810 
820 
830 
840 
850 
860 
1000 
1010 
1020 
1030 
1040 
1050 


1060 


1070 
1080 
1090 


1100 
1110 
1120 
1130 
1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1300 
1310 
1320 
1330 
1340 


1350 
1360 
1370 
1380 
1390 


On affiche les passerelles. 

NEXT de la boucle. 

Les échelles occupent 19 lignes sur l'écran. 

On affiche la première échelle. 

Puis la deuxième. 

NEXT des boucles. 

Première position de l'androïde. 

On l'affiche de face. 

Boucle d'attente. 

Il pivote d'un huitième de tour. 

Boucle d'attente. 

Toutes ces variables contiennent les renseignements pour dépla- 
cer le personnage vers la droite. 

Ce sous-programme le déplace en fonction des caractéristiques 
données par la ligne précédente. 

On efface l’androïde. 

On change sa dernière position. 

Toutes ces variables contiennent les renseignements pour dépla- 
cer le personnage vers le haut. 

Sous-programme de déplacement. 

On change la position verticale de l'androïde. 

On l'efface. 

On change sa position horizontale. 

Toutes ces variables contiennent les renseignements pour dépla- 
cer le personnage vers la gauche. 

Sous-programme de déplacement. 

On efface l'androïde. 

On modifie sa position horizontale. 

Le personnage descend. 

Sous-programme de déplacement. 

On efface l'androïde. 

On revient au début. 

La première position graphique est définie par D (début). 

On déplace le personnage N fois. 

On affiche le personnage en X,Y avec le graphique désigné par P. 
On attend T fois. 

On incrémente le compteur P. S'il est identique à la variable F (fin), 
il prend la valeur D (début). 

On vérifie que l’on ne sort pas de l'écran. 

On efface le personnage en fonction des incréments EX et EY. 
On incrémente les coordonnées avec les variables IX et |Y. 

NEXT de la boucle. 

Fin du sous-programme. 
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Liste des variables 


B 
B$() 

D 

EX & EY 
F 

F$() 


| 
IX & IY 
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Type d’effacement (tableau B$). 

Chaînes pour effacer le personnage. 

Début des graphiques dans le déplacement. 

Incréments horizontal et vertical pour l'effacement du person- 
nage. 

Fin des graphiques dans le déplacement. 

Chaînes contenant toutes les positions graphiques du person- 
nage. 

Indice de boucle FOR/NEXT. 

Incréments horizontal et vertical dans le déplacement. 

Indice de boucle FOR/NEXT. 

Nombre de déplacements. 

Pointe, dans le tableau F$, le prochain graphique à afficher. 
Longueur de la boucle d'attente. 

Coordonnées sur l'écran du personnage. 

Pointe les caractères graphiques à mettre dans le tableau F$. 
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Graphiques et langage machine 





Pour l'instant, nous n'avons étudié le générateur de caractères que du côté 
BASIC. Si cela est amplement suffisant dans la plupart des cas, les jeux 
d'arcades demandent, eux, une rapidité impossible à obtenir avec le BASIC. 
Nous allons donc examiner les principales caractéristiques de l'écran et du 
générateur de caractères, ainsi que les routines et les variables système qui 
permettent de manipuler rapidement des caractères. 


A la mise sous tension d'Amstrad, le générateur de caractères se trouve 
placé dans la ROM inférieure. La table occupe les zones mémoires de &3800 
à &3FFF (14336d à 163834), soit 256 caractères composés de 8 octets. 
Cette remarque est valable pour tous les modèles existant à l'heure actuelle. 


Pour modifier cette table, il faut bien sûr qu'elle soit stockée dans la mémoire 
vive. C'est le rôle de l'instruction SYMBOL AFTER. Dès que le BASIC ren- 
contre cette instruction, il recopie la partie concernée de la ROM vers la RAM. 
L'adresse de la nouvelle table est codée sur deux octets aux adresses &AE7D 
et &AE7E (44669d et 44670d) pour le 464 et &AE60 et &AE61 (44640d et 
44641d), pour le 664 et le 6128. 


Pour regarder le générateur tel qu'il est dans la RAM, essayez le programme 
qui suit. Si vous possédez un 664 ou un 6128, il faut modifier la ligne 30 avec 
les adresses données précédemment. 


GRAPHIQUES ET LANGAGE MACHINE 49 


19 en LE GENERATEUR DE L'AMSTRAD 


EM 

30 D 1+PEEK(BAE7D) +256#PEEK (SAE7E) 
48 FOR I=D TO 44631 

50 IF (1-0 )NOD 8=0 THEN PRINT 

60 A=PÉEK(I) 

76 PRINT I; 

88 FOR J=7 TO 6 STEP -1 

99 IF A AND 2-J THEN PRINT CHR$(143); ELSE PRI 
NT" *; 

188 NÉXT 

118 PRINT " “;A 

128 NEXT 


Listing 1 


En fait, il existe bien 256 caractères dans le générateur d'Amstrad. Les trente- 
deux premiers ne sont pas accessibles par CHR$ en BASIC car ils sont 
interceptés par l'interpréteur. Refaites tourner le programme en le faisant 
précéder par la commande SYMBOL AFTER 0 pour découvrir ces carac- 
tères. Il est cependant possible d'afficher ces caractères grâce à la routine 
système en &BB5D. 


Les caractères, ainsi transposés dans la RAM, peuvent être modifiés à vo- 
lonté soit par POKE en BASIC, soit par l'instruction LD en assembleur. Si 
vous avez déjà une table en mémoire, vous pouvez la recopier par l'instruc- 
tion LDIR en plaçant dans DE l'adresse de la table d'Amstrad, dans HL 
l'adresse de votre table et dans BC le nombre (multiplié par 8) de caractères 
à transférer. Le programme en assembleur qui suit effectue cette opération. 
Le programme se limite ici à un seul caractère mais rien ne vous empêche 
d'en transférer 256. Le CALL BBAE place dans HL l'adresse de début du 
générateur en RAM. 


19 REM COPIE GENERATEUR (L.M) 

20 REM ------------------ 
36 MODE 1 

486 SYMBOL AFTER 32 

50 FOR 1-430886 TO 43820 

686 READ A:POKE I,A 

76 NEXT I 

806 CALL 430060 

85 DATA &CD, &AE, &BB 

99 DATA &EB 

190 DATA &21,805, &AB 

110 DATA &01,808, &00 

120 DATA &ED, &B0 

130 DATA &C9 

148 DATA &6C,&FE,&FE,&FE, &7C, 838,810, 80 


Listing 2 
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43000 CD,AE,BB  CALL BBAE : Place dans HL l'adresse de la 


; table. 
43003 EB EX DE,HL ; Echange DE et HL. 
43004 21,00,A5 LD HL,A805 : HL=adresse de votre table. 
43007 01,08,00 LD BC,8 : Nombre d'octets à transférer. 
43010 ED,BO LDIR : Transfert. 
43012 C9 RET : Retour au BASIC. 
43013 6C DEF : Matrice du cœur; 
43014 FE DEF : ' | 
43015 FE DEF k 
43016 FE DEF : 
43017 7C DEF ; 
43018 38 DEF : ' 
43019 10 DEF : | | 
43020 00 DEF L ' | 


Après l'exécution du programme, tous les espaces seront remplacés par des 
cœurs. Tapez SYMBOL AFTER 32 pour revenir à la normale. 


Contrairement à la plupart des micro-ordinateurs, l'Amstrad ne place pas 
dans la mémoire d'écran le code du caractère à afficher mais y recopie tous 
les octets qui composent sa matrice. Ceci permet de mélanger facilement 
texte et graphique haute résolution. 


La mémoire d'écran commence généralement à l'adresse &C000, mais elle 
peut commencer aussi en &0000, &4000 ou &8000. C'est la variable systè- 
me &B1CB qui donne le poids fort du début d'écran. De plus, à cause du 
Scrolling, il faut ajouter l'offset de la paire d'octets &B1C9 et &B1CA pour 
obtenir le début réel de l'écran. 


Les octets qui composent une ligne haute résolution de l'écran sont placés 
les uns à côté des autres. La première ligne occupe donc les octets &C000 
à &C04F (80 octets de 8 bits = 640 points). 


Par contre, la deuxième ligne a un décalage de 2K. Elle occupe donc les 
octets &C800 à &C84F. 
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Le tableau suivant donne l'organisation de l'écran en mémoire (on suppose 
le début en &C000 avec un offset de 0) : 


ee ; ." . B0 octets. | 















Rangée 1 — ligne 1 
ligne 2 
ligne 3 





ligne 8 






Rangée 2 -— ligne 9 
ligne 10 
ligne 11 


ligne 16 | F850 
Rangée 3 - ligne 17 | COAO 





Rangée 25 - ligne 193 
ligne 198 EFCE 
ligne 200 FFCE 





Tableau 1 


Pour écrire un caractère sur l'écran, l'Amstrad prend les huit octets dans la 
matrice et les stocke dans la mémoire d'écran à la position du curseur. Si 
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nous affichons la lettre A à la position 1,1 en mode 2, l'analyse de la mémoire 
d'écran nous donne le résultat suivant : 


Adresse Contenu 


C000 24 
C800 60 
D000 102 
D800 102 
E000 126 
E800 102 
F000 102 
F800 0 


Le contenu correspond exactement à la matrice de la lettre À. En mode 2, 
un point correspond à un pixel sur l'écran puisqu'il n'y a qu'une couleur de 
fond et une couleur d'encre. 


Si nous faisons la même chose en mode 1, il faut analyser deux octets suc- 
cessifs, un point occupant deux pixels sur l'écran. Chaque groupe de quatre 
points peut prendre quatre couleurs différentes : 


Adresse Contenu Adresse Contenu 
CO00 16 Co01 128 
C800 48 C801 192 
DO00 96 DO01 96 
D800 96 D801 96 
E000 112 E001 224 
E800 96 E801 96 
FO00 96 F001 96 
F800 0 F801 0 


Notre nombre 24 (première ligne de la matrice du caractère A) s’est trans- 
formé en deux nombres 16 et 128. En représentation binaire, on obtient ceci : 


24 — 00011000 
16 — 00010000 
128 — 10000000 


Dans notre exemple, nous étions en PEN 1. Si nous avions changé les cou- 
leurs avec PEN 2 et PEN 3, nous aurions obtenu respectivement les chiffres 
1-8et 17-136: 


PEN 2 1 — 00000001 8 — 00001000 
PEN 3 17 = 00010001 136 = 10001000 
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Pour bien comprendre le problème des couleurs, le programme qui suit va 
vous permettre de mettre des couleurs dans vos graphiques. Vous devez 
donner successivement le code du graphique suivi de la couleur des quatre 
points à gauche et de la couleur des quatre points à droite (entre O et 3), 
chaque élément étant séparé par une virgule. A titre d'exemple, vous pouvez 
essayer la séquence suivante : 


255,1,2 
129,1,2 
129,1,2 
255,1,2 
129,1,2 
129,1,2 
255,1,2 

0,1,2 


10 REM GRAPHIQUE MULTI-COULEURS 

29 REM ----------------------- 
30 MODE 1 

40 E=8C000 

50 FOR I=1 TO 8 


60 LOCATE 1,18:PRINT CHR$S(18);"L.";l; 
70 INPUT"(NB,COULEUR 1,COULEUR 2)";N,C(1),C(2) 
88 N(1)=(N AND 240)/16: N(2)=N AND 15 
94 FOR J=1 TO 2 
100 ON C(J) GOTO 118,1308,120 
119 N(J)=N(J)#16:GOT0 138 
120 N(J)=N(J)#16+N(J) 
130 POKE E-1+J,N(J 
140 LOCATE 28+J*x5,[I:PRINT N(J) 
150 NEXT 
160 F=-E+8&880 
170 NEXT 
184 LOCATE 1,15 
Listing 3 


Le principe est le même pour le mode O0 mais un octet de la matrice prend 
maintenant quatre octets dans l'écran. Dans ce mode, deux points occupent 
huit pixels et offrent une palette de seize couleurs. En reprenant notre exemple 
du caractère A à la position 1,1, on obtient les octets suivants avec PEN 1 : 


Adresse Adresse+0 Adresse+ 1 Adresse+ 2 Adresse+3 


C000 0 64 128 0 
C800 0 192 192 0 
D0O00 64 128 64 128 
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Adresse 


D800 
E000 
E800 
FO00 
F800 


Adresse+0 Adresse+ 1 Adresse+2 Adresse+3 


64 128 64 128 
64 192 192 128 
64 128 64 128 
64 128 64 128 

0 0 0 0 


Si vous vouliez afficher directement dans la mémoire d'écran un caractère 
dans le mode 0, votre programme devrait transférer 32 octets pour un carac- 
tère simple et 128 pour un graphique composé de quatre caractères. Il faut 
donc utiliser au maximum les routines existantes de l'Amstrad. La liste qui 
suit vous donne les principaux points d'entrée des routines système qui uti- 
lisent l'écran, avec leurs buts, les registres à modifier avant l'appel (entrée) 
etles registres modifiés au retour de la routine (sortie), ainsi que les adresses 
des variables système utilisées par ces routines : 





0 BB5A 


0 BB5D 


Entrée 
Sortie 


o BB60 
Entrée 
Sortie 


0 BB66 
Entrée 


Sortie 


o BB69 
Entrée 
Sortie 


Envoie sur l'écran un caractère ou un code de contrôle (de 
0 à 1F) à la position courante du curseur. 

Entrée : À contient le caractère à afficher. 

Sortie : Les registres sont préservés. 


Identique à BB5A mais les codes de contrôle sont affichés 
avec leurs graphiques correspondants (voir listing 1). 


: A contient le caractère à afficher. 
: AF, BC, DE et HL sont modifiés. 


: Lit le caractère sous le curseur. 
: Aucune condition. 
: Sile caractère est reconnu, le drapeau CARRY est vrai et A 


contient le code du caractère, sinon CARRY est faux et A=0. 


Fixe la taille de la fenêtre courante. 


: H contient la colonne des deux coins à gauche. 


D contient la colonne des deux coins à droite. 
L contient la ligne des deux coins en haut. 
E contient la ligne des deux coins en bas. 


: AF, BC, DE et HL sont modifiés. 


Lit la taille de la fenêtre courante. 


: Aucune condition. 


H contient la colonne des deux coins à gauche. 
D contient la colonne des deux coins à droite. 
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96 


BB6C 
Entrée 
Sortie 


BB6F 
Entrée 
Sortie 


BB72 
Entrée 
Sortie 


BB75 
Entrée 


Sortie 
BB78 


Entrée 
Sortie 


BB7B 
Entrée 
Sortie 
BB7E 
Entrée 
Sortie 
BB87 
Entrée 


Sortie 


L contient la ligne des deux coins en haut. 

E contient la ligne des deux coins en bas. 

Si la fenêtre couvre tout l'écran, le drapeau CARRY est faux, 
sinon il est vrai. À est modifié. 


: Efface la fenêtre courante. 
: Aucune condition. 
: AF, BC, DE et HL sont modifiés. 


: Modifie la position horizontale du curseur. 
: A contient le numéro de la colonne. 
: Aet HL sont modifiés. 


: Modifie la position verticale du curseur. 
: A contient le numéro de ligne. 
: Aet HL sont modifiés. 


: Modifie la position du curseur. 
: H contient le numéro de la colonne. 


L contient le numéro de la ligne. 


: AetHL sont modifiés. 


: Demande la position du curseur. 
: Aucune condition. 
: H contient le numéro de la colonne. 


L contient le numéro de la ligne. 
A contient le nombre de SCROLL (défilement) déjà effectué 
dans la fenêtre courante. 


: Autorisation d'afficher le curseur. 
: Aucune condition. 
: Aest modifié. 


Interdiction d'afficher le curseur. 


: Aucune condition. 
: A est modifié. 


: Teste si une position donnée du curseur est à l'intérieur d'une 


fenêtre. 


: H contient le numéro de colonne à tester. 


L contient le numéro de ligne à tester. 


: Si l'affichage à cette position ne doit entraîner aucun SCROLL 


(défilement), le drapeau CARRY est vrai et B est modifié. 
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0 BB90 
Entrée 
Sortie 


0 BB93 
Entrée 
Sortie 


0 BB96 
Entrée 
Sortie 





o BB99 
Entrée 
Sortie 


0 BB9C 
Entrée 
Sortie 


0 BB9F 
Entrée 


Sortie 


0 BBA2 
Entrée 
Sortie 


O0 BBAS5 
Entrée 
Sortie 


0 BBA8 


S'il y a un défilement vers le haut, CARRY est faux et B 
contient FE. S'il y a un défilement vers le bas, CARRY est 
faux et B contient O0. Dans tous les cas, A est modifié. 


: Définit la couleur des caractères. 
: A contient le numéro d'encre. 
: AetHL sont modifiés. 


: Demande la couleur des caractères. 
: Aucune condition. 
: A contient le numéro d'encre. 


: Définit la couleur de fond des caractères. 
: A contient le numéro d'encre. 
: AetHL sont modifiés. 


Demande la couleur de fond des caractères. 


: Aucune condition. 
: A contient le numéro d'encre du papier. 


: Echange la couleur des caractères avec la couleur de fond. 
: Aucune condition. 
: AetHL sont modifiés. 


: Détermine le mode opaque ou transparent. 
: A contient O pour le mode opaque. A est différent de 0 pour 


le mode transparent. 


: Aet HL sont modifiés. 


Demande le mode d'écriture du fond. 


: Aucune condition. 
: À contient O pour le mode opaque. A est différent de O pour 


le mode transparent. 


: Demande l'adresse de la matrice d’un caractère. 
: À contient le code du caractère à rechercher. 
: Si la matrice est définie par l'utilisateur, le drapeau CARRY 


est vrai. Si la matrice est dans la ROM, CARRY est faux. HL 
contient l'adresse de cette matrice. À est modifié. 


: Donne l'adresse de la matrice d’un caractère défini par l’uti- 


lisateur. 
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Entrée 


Sortie 


0 BBAB 
Entrée 


Sortie 


0 BBAE 


Entrée 
Sortie 


Adresses 
464 
AE7D 


B1C8 
B1C9 
B1CB 


B1DA 


B1FC 
B285 
B286 
B287 
B288 





: A contient le caractère à définir. HL contient l'adresse de la 


matrice. 


: Sile caractère est redéfinissable par l'utilisateur, le drapeau 


CARRY est vrai, sinon il est faux. Tous les registres sont 
modifiés. 


: Donne l'adresse de la table d’une matrice de caractères dé- 


finie par l'utilisateur. 


: DE contient le premier caractère de la table. 


HL contient l'adresse de la nouvelle table. 


: S'iln'y a pas de table définie, le drapeau CARRY est faux, A 


et HL sont modifiés. Sinon CARRY est vrai, A contient le 
premier caractère de l’ancienne table et HL son adresse. BC 
et DE sont modifiés. 


: Demande l'adresse et le premier caractère de la table définie 


par l'utilisateur. 


: Aucune condition. 
: Si aucune table n'est définie, le drapeau CARRY est faux, À 


et HL sont modifiés. Sinon CARRY est vrai, A contient le 
premier caractère de la table et HL son adresse. 











Adresses Nombre | Evblicai 
664 et 6128 | d'octets TPPRNIERE 
AE60 2  |Utilisé par l'instruction BASIC 
SYMBOL. 
B7C3 1 Mode d'écran. 
B7C4 2  |Offset de l'écran (de O0 à 7FF). 
B7C6 1  |Octet de poids fort du début de la 
mémoire écran. 
B7D4 32 |Couleurs des encres (deux octets par 
couleur). 
B7F7 1 Utilisé par BORDER. 
B726 1 Position ligne du curseur. 
B727 1 Position colonne du curseur. 
B728 1 Indicateur de fenêtre. 
B729 1 Ligne des deux coins en haut de la 
[fenêtre courante. —… 
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Adresses| Adresses Nombre | is 
464 d'octets Explications 

B289 B72A 1 Colonne des deux coins à gauche de 
la fenêtre courante. 

B28A B72B 1 Ligne des deux coins en bas de la 
fenêtre courante. 

B28B B72C 1 Colonne des deux coins à droite de la 
fenêtre courante. 

B28D B72E 1 O=curseur autorisé, 
255=curseur interdit. 

B28F B72F 1 Encre courante pour le crayon. 

B290 B730 1 Encre courante pour le papier. 

B291 B731 1 0=affichage du fond permis, 
255=affichage du fond interdit. 

B294 B734 2 Premier caractère et état de la table des 
matrices définie par l'utilisateur. 

B296 B736 2 Adresse de la table des matrices 
définie par l'utilisateur. 











Les programmes qui suivent donnent des exemples d'utilisation des routines 
système de l'Asmtrad. Elles sont à utiliser sous la même forme que le listing 2. 


— Définir la couleur de l'encre et celle du papier : 


43000 8E,00 LD A,0 : encre bleue 
43002 CD,90,BB  CALL BB90 : routine encre 
43005 3E,01 LD A;1 ; papier jaune 
43007 CD,96,BB  CALL BB96 ; routine papier 


43010 C9 RET retour BASIC 


— Définir la position du curseur : 


43000 21,0A,0A LD HL,0A0A 
43003 CD,75,BB  CALL BB75 
43006 C9 RET 


curseur en 10,10 
détermine la position 
retour BASIC 


— Afficher un caractère : 


43000 8E,F9 LD A,F9 : caractère 249 
43002 CD,5A,BB  CALL BB5A : affiche le caractère 
43005 C9 RET : retour BASIC 
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— Afficher un message (le message se termine par FF) : 
43000 21,05,A8 LD HL,A805  ; adresse message 


43003 7E LD A,(HL) : Charge un caractère 
43004 FE,FF CPFF ; fin message 

43006 C8 RET Z : retour BASIC si fin 
43007 CD,5A,BB  CALL BB5A : affiche un caractère 
43010 23 INC HL : caractère suivant 
43011 18,F6 JR —-8 : on continue 

43013 1F,0A,0A DEF : curseur en 10,10 
43016 42,4F,4E DEF ; message 

43019 4A,4F,55 DEF : “BONJOUR” 
43022 52 DEF 

43023 FF DEF ; fin message 


— Définir une fenêtre de 10,10 à 20,20 : 
43000 CD,6C,BB  CALL BB6C : "CLS 


43003 21,0A,0A LD HL,0OAOA  ; ligne/colonne haut/gauche 
43006 11,14,14 LD DE,1414  ; ligne/colonne bas/droite 
43009 CD,66,BB  CALL BB66 : définit la fenêtre 

43012 C9 RET : retour BASIC 


Ces routines sont la base des programmes en assembleur, car elles 
permettent d'afficher un ou plusieurs caractères, de changer les couleurs 
et de définir des fenêtres. Utilisez-les le plus possible dans vos programmes 
“BASIC-assembleur” pour en accélérer l'exécution. N'oubliez pas qu'il existe 
des caractères de contrôle que l'Amstrad interprète à l'appel de la routine en 
&BB5A. Leur interprétation est bien sûr un peu plus lente qu'un appel direct 
de la routine correspondante, mais largement suffisante dans la plupart des 
cas. Le programme “afficher un message” vous donne un exemple d'utili- 
sation des codes de contrôle (ici l'adressage curseur, code &1F). Les codes 
de contrôle sont répertoriés au chapitre 9 du guide utilisateur. 


Ecrire des programmes en assembleur est beaucoup plus simple qu'il n'y 
paraît. Les routines “toutes prêtes” de l'Amstrad permettent de suivre un 
raisonnement identique à celui du BASIC, les variables étant simplement 
remplacées par des octets en mémoire ou les registres du microprocesseur. 
Armez-vous de patience, c'est en programmant qu'on devient programmeur. 
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Seconde 
partie 





Graphiques prêts à l'emploi 


Dans les pages qui suivent, vous allez trouver toute une série de graphiques 
déjà réalisés et groupés par thèmes. 


Chaque graphique est représenté sur une grille et accompagné de ses va- 
leurs décimales et hexadécimales. Ces données vous permettront de définir 
directement des caractères dans vos programmes, soit par l'instruction 
SYMBOL en BASIC, soit directement dans la mémoire en langage machine. 


Si vous désirez conserver dans votre fichier certains des graphiques présen- 
tés ici, vous devrez utiliser la commande A du générateur et entrer au clavier 
la liste des valeurs décimales. 
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Pièce de 1 franc 
Pieuvre 

Pion blanc 

Pion noir 

Pique 

Piquet 

Piquets 

Pistolet 

Poire 

Poisson 
Poisson-scie 
Poivron 

Pomme 

Poulet 

Priorité à l'intersection 
Pyramide 


Raisin 
Raquette 
Reine blanche 
Reine noire 
Relais 
Résistances 
Roi 

Roi blanc 

Roi noir 
Royaume-Uni 


Sacré-Cœur 
Sagittaire 

Sapin 

Saucisse 
Scaphandrier 
Scorpion 

Sens interdit 
Serpent 

Serrure 

Signes zodiacaux 


INDEX DES GRAPHIQUES 


Ski 111 


Skieur 113 
Star war 1 117 
Star war 2 117 
Star war 3 118 
Star war 4 118 
Stop 139 
Taureau 188 
Téléphone 167 
Tomate 180 
Tortue 173 
Tour blanche 92 
Tour Eiffel 155 
Tour noire 92 
Trafic 141 
Trames 195 
Trame 1 197 
Trame 2 197 
Trame 3 198 
Trame 4 198 
Trame 5 199 
Trame 6 199 
Transformateur F4 
Transistor NPN 79 
Transistor PNP 79 
Travaux 137 
Trèfle 82 
T - unijonction 75 
Valet 87 
Vase 163 
Verseau 193 
Vierge 190 
Virage droite-gauche 135 
Virage gauche 135 
Voiture 145 
Western 103 
Zanclus cornutus 170 
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Conseils de lecture 





Pour approfondir vos connaissances en BASIC Amstrad et mieux connaître 
le système des CPC 464, 664 et 6128, P.S.I. vous propose une palette d'ou- 
vrages utiles. 


Pour maîtriser le BASIC Amstrad 


O0 BASIC plus 80 routines sur Amstrad — Michel Martin (Editions du P.S.I.) 


Pour pousser votre Amstrad au maximum de ses capacités ; 80 routines de 
simulation d'instructions qui n'existent pas en BASIC Amstrad. 


O BASIC Amstrad, CPC 464, 664 et 6128 : 1 - Méthodes pratiques ; 
2 - Programmes -— Jacques Boisgontier (Editions du P.S.I.) 


Pour ceux qui ont déjà pratiqué un BASIC, voici deux ouvrages de perfec- 
tionnement au BASIC Amstrad, illustrés par de nombreux programmes- 
exemples. 
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Pour programmer en assembleur et mieux 
connaître le système des CPC 464, 664 et 6128 


0 Assembleur de l’Amstrad CPC 464 et 664 — Marcel Henrot (Editions du 
P.S.L.) 


Une initiation complète à l'assembleur du Z80 ; un bon complément du Clefs 
pour Amstrad. 


Q Clefs pour Amstrad — Daniel Martin (Editions du P.S.I.) 
Mémento présentant synthétiquement le jeu d'instructions du Z80, les points 


d'entrée des routines système, les connecteurs et brochages, etc. Le livre 
de chevet du programmeur sur Amstrad. 


A paraître : 


0 Périphériques et gestion de fichiers sur Amstrad, CPC 464, 664 et 
6128 — Daniel-Jean David (Editions du P.S.I.) 


Cet ouvrage s'adresse aux lecteurs, déjà initiés à l'Amstrad, souhaitant pro- 
grammer tous les périphériques des CPC 464, 664 et 6128 et programmer 
des applications utilisant des fichiers sur cassette ou sur disquette. 


0 Clefs pour Amstrad : 2 - Système disque — Daniel Martin (Editions du 
PS.) 


Les compléments du tome 1 — Système de base, pour tout connaître du 


système disque des 664, 6128 et 464 version disque. 


O Turbo Pascal sur Amstrad -— Pierre Brandeis et Frédéric Blanc (Editions 
du P.S.I.) 


Une initiation complète au Turbo Pascal des Amstrad 464, 664 et 6128, 
illustrée par de nombreux programmes d'un niveau de difficulté croissant : 
pour programmeurs avertis. 
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Pour être informé régulièrement de l’actualité 
des micros Amstrad 


D MICROSTRAD, revue bimestrielle du Groupe Tests 


Pour exploiter au mieux les capacités de votre micro, vous trouverez au 

sommaire de chaque numéro, un rendez-vous avec les rubriques clés : 

— Découvrez la face cachée de votre CPC : astuces, idées, conseils, tout 
pour comprendre votre micro, son anatomie, son fonctionnement, sa pro- 
grammation et exploiter ses capacités graphiques et sonores. 

— Domptez votre CPC 464, 664 et 6128 : passionnés, petits ou grands, 
spécialistes ou débutants, une information pratique et la compétence d'ex- 
perts au service de votre micro. 


— Programmez votre micro Amstrad : dans chaque numéro de MICROS- 
TRAD, un cocktail de programmes (dessins, jeux, utilitaires, gestion, etc.) 
et des trucs de programmation. 
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CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 
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Votre avis nous intéresse 


- Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le présent livre. 
- Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous adresserons votre demande 
à l’auteur qui ne manquera pas de vous répondre directement. 


- Ce livre vous donne-t-il toute satisfaction? 


























- Ÿ a-t-il un aspect du problème que vous auriez aimé voir aborde? 

















Comment avez-vous eu connaissance de ce livre? 


[] publicité [] cadeau 

[] catalogue [] librairie 

[] boutique micro [] exposition 
[] autres 


Avez-vous déjà acquis des livres PSI? 
lesquels ? 








qu'en pensez-vous? 











Nom Prénom Age 
Adresse . 
Profession _ 
Centre d'intérêt . 
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MICRO ET TECHNIQUES 


SUPER GÉNERATEUR 
DE CARACTÈRES 
SUR AMSTRAD 


SE générateur de caractères sur Amstrad vous propose un 
recueil de graphiques très variés (personnages, animaux, objets divers, 
éléments de jeux d'aventure... Tout utilisateur de l'Amstrad 464, 664 ou 
6128 pourra ainsi illustrer ou animer ses propres programmes éducatifs, 
ses jeux d'arcades, de rôle ou d'aventure. 


L. série de ces graphiques est précédée du programme BASIC per- 
mettant la création illimitée d'autres dessins au gré de votre imagination. 


$, ce générateur de caractères a été écrit ici pour l'Amstrad, il est 
largement commenté ligne par ligne afin d'en permettre une adaptation 
aisée sur tout autre ordinateur individuel. 
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